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APPENDIX B2 

★ 

* U.S. Patent Pending. Copyright 2000 Yahoo! Inc., 

* 3420 Central Expressway, Santa Clara, California U.S.A. 
* 

* ALL RIGHTS RESERVED. 
* 

* This computer program is protected by copyright law and 

* international treaties. Unauthorized reproduction or 

* distribution of this program, or any portion of it, may 

* result in severe civil and criminal penalties, and will 

* be prosecuted to the maximum extent possible under the law. 
* 



U * string Utilities 

UJ 

Ln function r j s_startsWith ( f ull , sub) 

o { 

nj var fullLower = f ul 1 . toLowerCase ( ) / 

"^^^ subLower = sub . toLowerCase ( ) ; 
iJ var index = fullLower . indexOf (subLower ) ; 

^ return index ? false : true,- 

g ' 

UJ function r j s_endsExact lyWith ( f ull , sub) 

m { 

var offset = full. length - sub. length; 
Q if (offset < 0) return false; 



var index = full . indexOf (sub, offset); 
return ( index==of f set ) ? true : false; 

} 

* Debug utilities 

function r j s_viewObj (ob j ) 
{ 

^ for (i in ob j ) alert (•• rj s_viewObj ( ) : " + i + " = " + obj [i] ) ; 

* Is the string at the end of left-hand side of '=• 

function r j s_isEndOf LHS (sub) 
{ 

if (rj s_AssignmentState != "Ihs") return false; 

if (r j s_endsExactlyWith (rj s_Tokens . str ( ) , sub) ) 
return true; 

else 
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return false; 

} 

* Find the next token (from ' startPos ' to the end) equals 

* to 'str' Sc return the index 
***************************************** 

function rj s_findNext { startPos , str) 

{ 

for (var i=startPos; i<rjs_Tokens . length ; ++i) 
if (rjs_Tokens [i] == str) return i; 

return -1; // not found 

} 

* Find the last token (between 'head_pos' & 'tail_pos') equals 

* to 'str' & return the index 

************************************************ 

function r j s_f indLas t (head_pos , tail_pos, str) 

{ 

for (var i=tail_pos; i >= head_pos; --i) 
if (rjs_Tokens [i] == str) return i; 

return -1; // not found 

} 

* Begin inserting " rmi_xlateURL ( * ) " 

★***************************************************/ 
function r j s_xUrlBegin (str ) 

{ 

rjs_XUrl_setLocationTail = ""; 

// Is top or parent in the chain? 

var top_pos = r j s_f indNext (r j s_Index_id, "top"); 

var parent_pos = rj s_f indNext (rj s_Index_id, "parent"); 

if (top_pos != -1 II parent_pos != -1) 

{ 

var split_pos = r j s_Index_id; 

if (top_pos == -1) 

split_pos = parent_j3os; 
else if (parent_pos == -1) 

split_pos = top_pos; 

else 

split_pos = top_pos; // use 'top' if both are found 

var head = rj s_Tokens . section (rj s_Index_id, split_pos) ; 

var rest = rj s_Tokens . section ( split_pos+2 ) ; // skip 

var override = " rmi_setLocation (\ " " + head + "\", \"" + rest + 
" \ " , rmi_xlateURL ( " ; 

// Get "a.b.c" from "a . b . c . location" 
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var loc__pos = r j s_f indNext (r j s_Index_id, "location"); 
var win = rj s_Tokens . section (rj s__Index_id , loc__pos-2) 

r j s_XUrl_setLocationTail = "), " + win + ")"; 
str = override; 

r j s_Tokens . null_section (r j s_Index_id) ; // null 

a . top . b . location . href 

} ■ 

rjs_XUrl_on = true; 
return str; 

} 

* Finish inserting " rnii_xlateURL ( * ) " 

function rj s_xUrlEnd (str) 
{ 

_„ rjs XUrl on = false; 
p - - 

^ if (rjs_XUrl_setLocationTail != "") 
01 return r j s_XUrl_setLocationTail ; 

01 else 
Q return str; 

m } 

y 



* Begin inserting "rmi_setCookie ( * ) " 
function r j s_xCookieBegin (str) 

i ^ 

iiJ r j s_XCookie_on = true; 

Q // remove "o . document . cookie " in "o . document . cookie =' 

var cur = rj s_Tokens . length- 1 ; 
r j s_Tokens . null_section (r j s_Index_id, cur) ; 

return str; 

} 

* Finish inserting " rmi_setCookie ( * ) " 

function r j s_xCookieEnd (str) 

{ 

r j s_XCookie_on = false; 
return str; 

} 

/**************************************************** 

* Begin inserting " rnii_xlateURL ( * ) " for "*.action=" 

function r j s_xActionBegin ( str) 
{ 

r j s_XAction_on = true; 
return str; 

} 
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* Finish inserting "rmi_xlateURL (*) " for "*.action=" 
****************************************************/ 

function r j s_xActionEnd ( str ) 

{ 

r j s_XAction_on = falser- 
return str; 

} 

* Begin inserting "rmi_xlate (*) " 

function r j s_xInnerHtmlBegin (str) 
{ 

r j s_XInnerHtml_on = truer- 
return str; 

} 



* Finish inserting "rmi xlate(*)" 

iJl function r j s_xInnerHtmlEnd ( str ) 

□ { 

fy r j s_XInnerHtml_on = false; 

-.1 return str; . 

* Translate "document . layers " 
function r j s_xLayers ( s tr ) 

a { 

f=% if (r j s_LayerState 1= "doc") return str; 



var pre = rj s_Tok:ens . length- 3 ; 
var cur = rj s_Tokens . length- 1 ; 
if (pre < 0 I I cur < 0) return str; 

if (r j s_Tokens [pre] == "document" && r j s Tokens [ cur] — = "layers") 

{ 

r j s_Tokens [pre] = "document . layers [\ ' rmilayer\ ' ] .document"; 
r j s_LayerState = ""; 

} 

return str; 

} 

* Save current token position into a global variable 

* {e.g. r j s_Index_id) 

var rjs_Index_id = 0; 

function r j s_saveIndexFor ( type) 
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{ 

var code = "rjs_Index_" + type + " = rj s_Tokens . length - 1' 
eval (code) ; 

} 

* Increment top elements for ALL 'nesting* arrays 

function r j s_incTopForNes ting ( ) 
{ 

rj s_incTop (rj s_XUrl_nesting) ; 
rjs_incTop (rj s_XCookie_nes t ing) ; 
rj s_incTop (r j s_XAction_ne sting) ; 
rjs_incTop (rj s XInnerHtml nesting); 

} 

* Decrement top elements for ALL 'nesting' arrays 

^ ****************************************************/ 

U function r j s decTopForNesting ( ) 

fl { 

ui rjs_decTop(rjs_XUrl_nesting) ; 

Lfl rjs_decTop (rjs_XCookie_nesting) ; 

p rjs_decTop(rjs_XAction_nesting) ; 

ry rjs_decTop (rjs_XInnerHtml_nesting) ; 

^ * Increment the top element of an array 

iij function rj s_incTop ( array) 

m { 

var cur = array, length - l; 
==r if (cur < 0) cur = 0; 



return ++array [cur] ; 

} 

* Decrement the top element of an array 

function rj s_decTop (array) 

var cur = array. length - 1; 
if (cur < 0) cur = 0/ 
return - -array [cur] ; 

} 

* Return (NOT pop ! ) the top element of an array 

function rj s_retTop (array) 
{ 

var cur = array. length - 1; 
if (cur < 0) cur = 0; 
return array [cur]; 

} 
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* Save head & tail positions for a chain 

* (e.g. for "a.b.c.d", positions of a & d are saved) 
* 

* Previous 'identifier' position is saved as a head position 

* Relative offset from current position is saved as a tail position 
************************* ★ ★ ★*★******★*★★* * * **★★★**★★ / 

function r j s_saveChain ( rel , head, tail) 

{ 

var cur = rj s_Tokens , length - 1; 

var pre = cur + rel; 

if (pre < 0 I I cur < 0) return false ; 

head .push (rj s_Index_id) ; 
tail . push (pre) ; 



return true; 



o 

^ } 

m 

Q * Save *.open() attributes 

I * Trigger State: * . open ( 

function r j s_saveOpen ( ) 

{ 

var cur = rj s_Tokens . length - 1; 
E var pre = cur - 1 ; 

fU if (pre < 0 I I cur < 0) return false; 

f^. if (rjs_Tokens [pre] == "open") 

{ 

// e.g. save positions for a & c for "a . b . c . open ( " 
rjs_saveChain ( -3, r j s_Open_head, r j s_Open_tail ) ; 

rjs_OpenFunc_pos -push (pre) ; // e.g. save position for 

"open" 



} 

return true; 



* Translate open(*) or *.open(*) 
* 

* Trigger State: * . open (* 

function r j s_xOpen ( ) 
{ 

if (rj s_OpenFunc_pos . length == 0) return false; 
var func_pos = r j s_OpenFunc__pos . pop ( ) ; 
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if (rj s_Tokens [func_pos-l) == ".") 
{ 

var head_pos = r j s__Open_head . pop ( ) ; 
var tail_pos = r j s_Open_tail . pop ( ) ; 

r j s_Tokens [f unc_pos] = '*rmi_winobj_open" ; 

var argO = rj s_Tokens . section (head_pos , tail_pos) ; 

rjs_Tokens [func_pos+2] = argO + " + r j s_Tokens [f unc_pos+2] ; 

r j s_Tokens . null_section (head_pos , tail_pos + 1) ; 

else 

r j s_Tokens [ f unc_pos ] = " rmi_window_open " ; 

} 



* Save *. write 0 & *.writeln() attributes 
* 

0 * Trigger State: .write ( or .writeln( 

m *********************************** ***ic 

01 function r j s_saveWrite ( ) 

m { 

Q var cur = rj s_Tokens . length - 1; 

1^-: var preO = cur - 1; 

Iji var prel = cur - 2; 

^ if (preO < 0 I I prel < 0 | | cur < 0) return false; 

^ if (rj s_Tokens [prel] == ".") 

M if (rjs_Tokens [preO] == "write" || r j s_Tokens [preO] == 

m "writeln") 

ru { 

ty // e,g, save positions for a & c for " a . b . c . wri te ( " 

Q rjs_saveChain ( -3, r j s_Write_head, r j s_Write_tail ) ; 



r j s_WriteFunc_pos . push (preO ) ; // e.g. save position 

for "write" or "writeln" 

} 

return true; 

} 

/****************^^^^^^^^^^^^^^^^^^^^^^^^^^^,^ 

* Translate *.write(*) or *.writeln(*) 
* 

* Trigger State: .write ( or . writeln ( 
*********************************************/ 

function rjs_xWrite() 

{ 

if (rj s_WriteFunc_pos . length == 0) return false; 

var func_pos = r j s_WriteFunc_pos . pop ( ) ; 

if (rjs_Tokens [func_pos-l] == ".") 
{ 

var head_pos = r j s_Write_head . pop ( ) ; 
var tail_pos = r j s__Write_tai 1 . pop () ; 
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r j s__Tokens [f unc_pos] = "rmi_*' + r j s_Tokens [ f unc_pos ] ; // xlate 
write or writeln 

var argO = rj s_Tokens . sect ion (head_pos , tail_pos) ; 

r j s Tokens [ f unc pos +2 ] = argO + " + r j s_Tokens [f unc_pos+2 ] ; 

r j s_Tokens . null_section (head_pos , tail_pos + 1); 

} 

} 

* Save *. location , replace ( ) attributes 
* 

* Trigger State: *. replace ( 
function r j s_saveReplace ( ) 

{ 

var cur = rj s_Tokens . length - 1; 
var preO = cur - 1; 
var prel = cur - 3; 

if (preO < 0 I I prel < 0 | | cur < 0) return false; 

if (r j s_Tokens [prel] == "location" r j s_Tokens [preO ] == "replace") 

{ 

// e.g. save positions for a & c for "a , b . c . location - replace ( " 
r j s_saveChain { -5 , r j s_Replace_head, r j s_Replace_tail) ; 

r j s_ReplaceFunc_pos .push (preO) ; // e.g. save position for 

"replace" 

} 

return true; 

} 

* Translate location , replace (* ) or *. location . replace (* ) 
★ 

* Trigger State: * , replace (* 
******************************************* 

function r j s_xReplace ( ) 

{ 

if (rj s_ReplaceFunc__pos . length == 0) return false; 

var func_pos = r j s_ReplaceFunc_pos . pop ( ) ; 
var head_pos = r j s_Replace_head . pop ( ) ; 
var tail_pos = r j s_Replace_tail . pop ( ) ; 

if (r j s_Tokens [f unc_pos-3] == ".") 

{ 

// Handle the argument IF top or parent is in the chain 

var top_pos = r j s_f indLast (head_pos , tail_pos, "top"); 

var parent_pos = rj s_f indLast (head_pos , tail_pos, "parent"); 

var argO = " " ; 

if (top_pos != -1 II parent_pos != -1) 

{ 
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var split_pos = head__pos; 

if {top_pos == -1) 

split_pos = parent_pos ; 
else if (parent_pos == -1) 

split_jpos = top_pos ; 

else 

split_pos = top_pos ; // use 'top' if both are found 

var win = rj s_Tokens . sect ion (head_pos , split_pos) ; 
var rest = rj s_Tokens . sect ion ( split_pos+l , tail_pos); 
argO = "rmi_getTop { " + win + ")" + rest; 

} 

else 

argO = rj s_Tokens . sect ion (head_pos , tail_pos); 
r j s_Tokens [f unc_pos] = "rmi_replace " ; 

rjs_Tokens [funcj)os+2] = argO + " + r j s_Tokens [ f unc_pos+2 ] ; 
r j s_Tokens . null_section (head_pos , tail_pos + 3); // remove 
chain . location . 

} 



else 

Ul { 



rjs_Tokens [func__pos + 2] = "self, " + r j s_Tokens [ f unc_pos+2 ] ; 
rjs_Tokens [func_pos] = "rmi_replace " ; 

r j s_Tokens . null_section (head_pos , tail_j)os + 3); // remove 
chain . location . 

} 

} 

* Save attributes for document . domain or *. document . domain 
* 

* Trigger State: * document . domain 
function r j s_saveDomain ( ) 

{ 

if (rj s_endsExactlyWith (rj s_Tokens . str 0 , "document . domain" ) ) 

{ 

// e.g. save positions for a & domain for 
" a . b . c . document . domain ( " 

i^j s_saveChain (0 , r j s_Domain_head, r j s_Domain_tail ) ; 

} 

return true; 

} 

* Pop attributes for document . domain or *. document . domain 

* for each assignment expression 
* 

* Trigger state: *document . domain in LHS 
*********************************************/ 

function r j s_popDomain ( ) 

{ 

r j s__Domain_head . pop ( ) ; 
r j s_Domain_tail . pop ( ) ; 
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} 

* Translate document . domain or *. document . domain 
* 

* Trigger State : end of statement 
******************************************** 

function r j s_xDomain ( ) 

{ 

for (var i=0; i<rj s_Domain_head . length; ++i) 

{ 

r j s_Tok:ens . null_section (r j s_Domain_head [i] , r j s_Domain_tail [ i ] ) 
r j s_Tok:ens [rj s_Domain_head [i] ] = "rmi getOriginalDomain ( ) " ; 

} 

} 

* Save attributes for location.* or *. location.* 

* Trigger State: *location.* or *location 
function r j s_saveLocation ( ) 

{ 

var cur = rj s_Tokens . length - 1; 
var preO = cur - 1; 
var prel = cur - 2/ 

if (preO < 0 I I prel < 0 | | cur < 0) return false; 

var str = r j s_Tokens . str ( ) ; 

var peek = JSC$parser_peek_token_token; 

// if (rj s_Tokens [prel] == "location" && r j s_Tokens [preO] == ".") 

if (r j s_endsExactlyWith ( str , " location . href " ) 

I I rjs_endsExactlyWith(str, " location . host " ) 

I I rj s_endsExactlyWith (str , " location . hostname " ) 

I I r j s_endsExactlyWith (str , " location . pathname " ) 

II rj s_endsExactlyWith (str , " location . port " ) 

I I rj s_endsExactlyWith (str , " location . search" ) 

) 

{ 

// e.g. save positions for a & href for "a . b . c . location . href " 
r j s_saveChain (0 , r j s_Location_head, r j s_Location_tail ) ; 

} 

else if (r j s_Tokens [cur] == "location" && peek != ".") 

{ 

// e.g. save positions for a & location for "a . b . c . location" 
r j s_saveChain (0 , r j s_Locat ion_head, r j s_Location__tail ) ; 

} 

return true ; 

} 

* Save attributes for standalone 'location' 
* 

* Trigger State: location 
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* (no '.location' or 'location.') 
function r j s_saveStandaloneLocat ion ( ) 

{ 

var cur = rj s_Tokens . length - 1; 
var pre = cur - 1 ; 

if (pre < 0 I I cur < 0) return false; 

if (rj s_Tokens [rj s_Index_id] == "location" rjs_Index_id == cur 
rjs_Tokens [pre] != ".") 

r js_saveChain (0 , r j s_Location_head, r j s Location tail); 

} 

* Pop attributes for location.* or *. location.* 

* for each assignment expression 
* 

* Trigger state: *location.* in LHS 
function r j s_popIjOcation ( ) 

{ 

r j s_Location_head - pop ( ) ; 
rj s_Location_tail .pop ( ) ; 

} 

* Translate *. location, location.*, *. location.* 

* Trigger State: end of statement 
function r j s_xLocation () 

{ 

for (var i=0; i<rj s_Location_head . length; ++i) 

var head_pos = r j s_Location_head [i ] ; 

var tail_pos = r j s_Location_tail [i] - 2; 

var argO = rj s_Tokens . section (head_pos , tail_pos); 

var prop = r j s_Tokens [r j s_Location_tail [i ] ] ; 

if (prop == "location" argO != "") // from *. location 

{ 

argO = argO + ".location"; 
prop = " " ; 

} 

else if (prop == "location") // from location 

{ 

argO = "location"; 
prop = " " ; 

} 

r j s_Tokens . null_section (r j s_Location_head [i] , 
r j s_Location_tail [i] ) ; 

r j s_Tokens [r j s_Location_head [i] ] = " rmi_getOriginal ( " + argO + 
" , \ " " + prop + »' \ " ) " ; 

} 



11 



rj s_Location_head . reset ( ) ; 
r j s_Location_tail . reset { ) / 

} 

* Save attributes for * document . cookie* 
* 

* Trigger State: *document . cookie* 
function r j s_saveCookie ( ) 

{ 

var str = r j s_Tokens . str ( ) ; 

if ( r j s_endsExactlyWith ( str , "document . cookie ") ) 

{ 

// e.g. save positions for a & cookie for 
" a . b - c . document . cookie " 

r j s_saveChain ( 0 , r j s_Cookie_head, r j s_Cookie_tail ) ; 

} 

return true; 

} 

* Pop attributes for *document . cookie* 

* for each assignment expression 
* 

* Trigger state: *document . cookie* in LHS 
function r j s_popCookie ( ) 

{ 

r j s_Cookie_head . pop ( ) ; 
r j s_Cookie_tail .pop ( ) ; 

} 

* Translate *document . cookie* 
* 

* Trigger State : end of statement 
*************************************** 

function r j s_xCookie ( ) 

{ 

for (var i=0; i<rj s_Cookie_head . length; ++i) 

{ 

var head_pos = r j s_Cookie_head [i] ; 
var tail_pos = r j s_Cookie_tail [i] ; 

var argO = rj s_Tokens . section (head_j)os , tail_j30s) ; 

r j s_Tokens . null_section (r j s_Cookie_head [i] , r j s_Cookie_tail [i] 
r j s_Tokens [r j s_Cookie_head [i] ] = " rmi_get Cookie ( " + argO + ")" 

} 

r j s_Cookie_head . reset ( ) ; 
r j s_Cookie_tail . reset ( ) ; 

} 



12 



* Save attributes for *. frames [*]. * 
* 

* Trigger State: *. frames [ 
function r j s_saveFrames () 

{ 

var cur = rj s_Tokens . length - 1; 
var pre = cur - l; 

if (pre < 0 I I pre-1 < 0 | | cur < 0) return false; 

if (r j s_Tokens [pre] == "frames" r j s_Tokens [pre- 1] == ".") 
{ 

// e.g. save positions for a & c for "a . b . c . frames [ " 
r j s_saveChain ( -3, r j s_Frames_head , r j s_Frames_tail ) ; 

rj s_FramesObj_pos .push (pre) ; // e.g. save position for 

"frames " 

} 

return true; 

} 

/★★**★*★***★****★*★★* ************** 

* Translate *. frames [*]. * 
* 

* Trigger State: *.frames[ 

****************** * * ************************* ^ 
function r j s_xFrames ( ) 

{ 

if (rj s_FramesObj_pos . length == 0) return false; 

var obj_pos = r j s_FramesObj_pos . pop ( ) ; // "frames" position 

if (r j s_Tokens [obj_pos -1] == ".") 

{ 

var head_pos = r j s_Frames_head . pop ( ) ; 
var tail_pos = r j s_Frames_tail . pop ( ) ; 

var left_pos = obj_pos+l; // left bracket 

position 

var right_pos = r j s_f indNext ( lef t_pos , "]"); 
if (right_pos ! = -1) 

{ 

r j s_Tokens [obj_j)Os] = " rmi_getFrame " ; 

var argO = rj s_Tokens . section (head_pos , tail_pos) ; 

r j s_Tokens [lef t j)Os] = "(" + argO; 

if (right_pos - left_pos > 1) 

r j s_Tokens [lef t_pos] += ", "; 

else 

rjs_Tokens [left_pos] += ", 0"; // f rames [] 

r j s_Tokens [right_pos] = ")"; 
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r j s_Tokens . null_section (head_pos , tail_pos + 1); 

} 

} 

} 

* Translate JavaScript string 

function rmi_xjs(str) 

{ 

^js_Error = false; // reset 

JSC$generate_debug_inf o = false; 
JSC$warn_missing_semicolon = false; 
tJSC$verbose = false; 

JSC$optimize_constant_f olding = false 

var sStr = new JSC$StreamString (str ) ; 

^ rjs Stmts , reset () ; 

JSC$parser reset (); 

01 

yl JSC$parser_parse (sStr) ; 

o 

fy rjs_debug("OLD: " + str + "\n" + "NEW:" + r j s_Sttnts . str ( ) ); 



y 



if (rjs_Error) 

return str; 
else 

return rjs Stmts . str () ; 

m } 

ru 

□ 
a 
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